home *** CD-ROM | disk | FTP | other *** search
/ Amiga Mag HDD Backup / Amiga Mag HDD Backup.zip / Amiga Mag HDD Backup / Alexander.img.bin / Alexander.img / 315 2 files Archive.sit / Any plain-text files / ? Any plain-text file 86 < prev    next >
Text File  |  1995-01-03  |  2KB  |  69 lines
  1. Listing 2. Listing of CanDoTextReader.z Created by CD_ADE
  2.  
  3.  
  4.  
  5. Deck "CanDoTextReader"
  6.   Card "TextReader"
  7.     BeforeAttachment
  8.       MakeDocument "TextDoc"
  9.     EndScript
  10.     Window "UserWindow"
  11.       Definition
  12.         Origin 108,44
  13.         Size 320,200
  14.         Title "CanDo Text File Reader"
  15.         NumberOfColors 4,69632
  16.         DefaultColors 0,1,0
  17.         WindowObjects CLOSEBUTTON DEPTHBUTTONS DRAGBAR SIZEBUTTON 
  18.         WindowFlags ACTIVATE TOFRONT WORKBENCH 
  19.         VisualEffects NONE ,WAIT 
  20.       EndScript
  21.       OnCloseButton
  22.         Quit
  23.       EndScript
  24.       OnResized
  25.         MoveObject "SelectFile",(WindowWidth%2)-95,WindowHeight-20
  26.       EndScript
  27.     EndObj
  28.     Memo "FileMemo"
  29.       Definition
  30.         Origin 11,16
  31.         Size 285,156
  32.         Font "topaz",8
  33.         Style PLAIN ,2,3
  34.         TextColors 1,0,JAM2 
  35.         Border DOUBLEBEVEL ,2,1
  36.         MemoDocument "TextDoc"
  37.         ScrollBars RIGHT 
  38.         InputStyle NORMAL 
  39.       EndScript
  40.     EndObj
  41.     TextButton "SelectFile"
  42.       Definition
  43.         Origin 65,180
  44.         Font "topaz",11
  45.         Style BOLD SHADOW ,2,3
  46.         TextColors 1,0,JAM1 
  47.         Text " Select File to View "
  48.         Border BEVEL ,2,1
  49.         Highlight COMPLEMENT 
  50.         ButtonFlags NONE 
  51.       EndScript
  52.       OnRelease
  53.         Let Heading="Select a text file to view"
  54.         Let FNNew=AskForFileName(FN,Heading,WindowX+100,WindowY+100)
  55.         If FNNew<>""
  56.           Let FN=FNNew
  57.           OpenFile FN,"FileBuf",READONLY ,OLDFILE 
  58.           GetFileInfo FN,FNSize
  59.           FileReadChars "FileBuf",TextVar,FNSize
  60.           Close "FileBuf"
  61.           Clear DOCUMENT 
  62.           Type TextVar
  63.           MoveCursorTo STARTOF DOCUMENT 
  64.         EndIf
  65.       EndScript
  66.     EndObj
  67.   EndObj
  68. EndObj
  69. Å;åÇ∙ ƒ¢ÖÇ√⌠╨·f<∞f<f∙ xf` ·ß▌ °@ ▐ ■p√┐Çå°  ƒÅ·⌠╨·|■f`l∙ >|  ·ß▌ °@ ▐ ■p√╡Çå°■ ¥ÖÇ√⌠╨·l>╓f<x∙  f ·ß▌ °@ ▐ ■p√Ö▒Ç¢°■■ÖÇ·· f╞ll∙ f f0·ß▌ °@ ▐ ■p√Å▒ÇÇ∙■²